home *** CD-ROM | disk | FTP | other *** search
/ Terra Sound Library / Terra Sound Library.iso / player_composer / eagleplayer / ep_to_install / installdata / arexxexamples.lha / EP_Modrename.dopus < prev    next >
Text File  |  1994-10-09  |  3KB  |  121 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4. Lädt alle im Quelldirektory selektierten Module und speichert sie in das
  5. Zieldirektory -gegebenenfalls gepackt- unter dem richtigen, im Modul
  6. befindlichen Namen mit dem voreingestellten Prefix, ab. (nur in der registrierten
  7. Version verfügbar)
  8.  
  9.  - in Opus als "Arexx" einbinden
  10.  
  11. Achtung ! Der Eagleplayer muß, wenn er vom Opus aus geladen wird, entweder
  12. eine EP-Batch finden, in der die absoluten Pfade eingestellt sind, sprich
  13. "DH0:Eagleplayers/TFMX" statt nur "Eagleplayers/TFMX".
  14.  
  15. */
  16.  
  17. options results
  18.  
  19. if pos('rexx_EP',SHOW('Ports')) = 0 then
  20.  do
  21.  
  22.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf ändern */
  23.  
  24.             /* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  25.   address COMMAND 'sys:Eagleplayer'
  26.  
  27.   testflag=0
  28.   time ('R')
  29.  
  30.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  31.   toptext 'Attempting to Load Eagleplayer'
  32.  
  33.   do while (testflag=0) & (time('E') < Waittime)
  34.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  35.   end
  36.  
  37.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  38.     toptext 'Eagleplayer loaded'
  39.    else
  40.     do
  41.      toptext 'Couldn`t load Eagleplayer'
  42.      exit
  43.     end
  44. end
  45.  
  46. address 'rexx_EP'
  47. Overwrite On
  48. SSDir Off
  49. AutomaticSave On
  50. Volume 0                        /* may be removed if wanted */
  51. UseSongname On
  52. LoadDir off
  53. AutoDir off
  54. LoadBefore off
  55. Quickstart off
  56. Iconify
  57. OpenMainWindow
  58.  
  59. address 'DOPUS.1'        /* address 'DOPUS.1' */
  60. status 3
  61. ac=result
  62. status 13 ac
  63. dirname=result
  64. dirname='"'||dirname
  65. ad = bitchg(ac,0)
  66. status 13 ad
  67. savedir=result
  68. address 'rexx_EP'
  69. savepath savedir
  70.  
  71.  
  72. address 'DOPUS.1'        /* address 'DOPUS.1' */
  73. getselectedall '/'
  74. selected = RESULT
  75. if selected~="RESULT" then do
  76.  
  77.  DO WHILE selected~=""
  78.   PARSE VAR selected name '/' selected
  79.   address 'DOPUS.1'
  80.   sels=dirname||name||'" '
  81.    if sels~= "" then do
  82.      address 'DOPUS.1'
  83.      toptext 'Eagleplayer: Attempting to Load '||sels
  84.      address 'rexx_EP'
  85.      Loadmodule sels
  86.      aha=result
  87.       if aha = "Module loaded !" then do
  88.         address 'DOPUS.1'
  89.         toptext 'Eagleplayer: Attempting to Save Module'
  90.         address 'rexx_EP'
  91.         savemodule
  92.         aha2 = result
  93.          if aha2 = "Module saved !" then do
  94.            address 'DOPUS.1'
  95.            status 3
  96.            if result ~= ac then
  97.             otherwindow
  98.            SelectFile '"'||name||'"' 0 1
  99.           end
  100.        end
  101.       else
  102.        do
  103.         address 'DOPUS.1'
  104.         toptext 'Eagleplayer: '||aha
  105.        end
  106.    end
  107.  
  108.  END
  109.  
  110.  
  111.  
  112. end
  113.  
  114. else
  115.   do
  116.     address 'DOPUS.1'
  117.     toptext 'Eagleplayer: No Module selected'
  118.   end
  119.  
  120. exit
  121.